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2s PRODUCT NAME BOOTSTRAP/TERMINATOR (M9301, M9400) 

et PROGRAM DATE: MAY 27,1977 

es MAINTAINER DIAGNOSTIC ENGINEERING 

23 

23 

35 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

3 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

37 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 

3 NO RESPONSIBILITY FOR ANY ERRORS THAT MMAY APPEAR IN THIS DOCUMENT 

32 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

43 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 

= TERR OF SUCH LICENSE. . 

“ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

3 THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 

a NOT SUPPLIED BY DIGITAL. 
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: SUMMARY OF OPERATING INSTRUCTIONS : 
ERESLLLEESESESSSEEEEEAAEEEEA EERE SEES E 
ee ae CAN BE USED TO RUN THIS gee hae 
it A DEVICE ven hr ION MODE. IF THE PROGRAM NOT 
SUCCESSFULLY CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE. 
OPERATING PROCEDURE : 
1. LOAD THE PROGRAM USING NORMAL PROCEDURES. 
2. LOAD ADDRESS 200 
3. SET SWITCH me STSTer TO SELECT THE PROPER 
or ne OF THE ROM UNDER TEST. 
(SEE INSTRUCTIONS IF A SOFTWARE SWITCH REGISTER 
IS TO BE USED.) 
PRESS START 


THE PROGRAM SHOULD TAKE ABOUT 1 SEC TO 
COMPLETE THE TEST AND PRINT: “END OF TEST. 


6. IF THE PROGRAM DOES NOT RUN AS DESCRIBED 
ABOVE, CONSULT THE FULL OPERATING INSTRUCTIONS 
WHICH’ FOLLOW. 

# # CAUTION # # 


7 THE CONTENTS READ FROM LOCATION 773024 


PRINT OUT THIS LOCATION. 
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1.0 GENERAL PROGRAM INFORMATION 


1.1 PROGRAM PURPOSE 


THIS DIAGNOSTIC st IS INTENDED TO VERIFY THE 
ROM CONTENTS OF THE ROM BOOTSTRAP MODULES. THE PROGRAM 
S AND eae CYCLIC REDUNDANCY CHARACTER 
AND A LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS 
OF THE ROM STORAGE AVAILABLE IN AN M930i OR MS4O0 MODULE 
A SEPARATE ROUTINE INCLUDED ALLOWS THE USER TO TYPE 
pS. aie 16 WeBLoCITe. ROM STORAGE ON THE TELETYPE AS 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE 


SIS RUE TS BBARRECERCS Be SR RPE 


PDP/11 PROCESSOR 
TELETYPE OR EQUIVALENT 
4K OF MEMOR 


1.2.2 SOFTWARE 


THIS PROGRAM IS WRITTEN TO BE RUN AS A STAND-ALONE PROGRAM. 
HOWEVER, THE PROGRAM IS DESIGNED TO RUN UNDER AUTOMATED 
PRODUCT’ TEST SYSTEM (APT) IN ALL THREE MODES. 


THE PROGRAM CAN ALSO BE RUN UNDER THE ACT 11 MONITOR. 
1.3 RELATED DOCUMENTS AND STANDARDS 


DIAGNOSTIC PG INEERING STANDARDS AND CONVENTIONS PROGRAMMING PRACTICES 
DOCUMENT NO. 175-003-009-00 


APT INTERFACE SPECIFICATION, REV. 13 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING 
1.5 FAILURE ASSUMPTIONS 


0 8 = b= bo b= 0s B= = ho be 8 Fe Be Be be Be Be hs fs he he hs hs he i hs pe ph ee 


EH SVSVRRGOHEBSBURRPORLS 


THE PROCESSOR IS ASSUMED TO BE FUNCTIONING PROPERLY. 
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2.2 


OPERATING INSTRUCTIONS 


USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS. 
NORMAL START 


1. LOAD SOFTWARE SWITCH Recta ter (IF USED) TO SELECT THE 
ROM VERSION UNDER TEST. (SEE 2.3) 


&. LOAD ADDRESS 200 - 


3. SET HARDWARE SWITCH REGISTER (IF AVAILABLE) TC SELECT THE 
ROM VERSION UNDER TEST (SEE 2.3). 


4. START 
OPTIONAL START 


THE OPTIONAL STARTING ADORESS IS USED TO TYPE OUT THE CONTENTS 
A, ROM FOR USE IN VISUAL VERIFICATION OR AS A DEBUGGING 


USE THE SAME PROCEDURE AS A NORMAL START EXCEPT USE 
ADDRESS 210 IN STEP 2. 


SPECIAL ENVIRONMENTS 


THIS PROGRAM IS WRITTEN TO COMPLY WITH ALL bf gi ie 
OF THE APT INTERFACE SPECIFICATION. IT Wet UN UNDER 
IN EITHER QUICK VERIFY, PROGRAM OR RUN-T TNE ROBES. 


THIS PROGRAM IS WRITTEN TO COMPLY WITH THE ACT11/XXDP 
INTERFACE REQUIREMENTS. 


WHEN it Z — ar VERIFY OR XXDP CHAIN MODE 
(LOC. QUICK VERIFY AND —— MODE 


cere aes Po il THE 


AL ty 
ERSTON : OF THe RON BOOTST TRAP. WHEN A MATCH IS FOUND THE 
Y RSION OF THE MODULE IS TYPED FOR VISUAL VERIFICATION. 
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199 2.3 PROGRAM OPTIONS 

LEE amet a oc en 

202 THE PROGRAM AUTOMATICALLY CHECKS FOR THE PRESENCE OF 

203 A HARDWARE SWITCH REGISTER. IF NO RESPONSE IS FOUND WHEN 

204 ADDRESSING THE HARDWARE SWR (177570), THE ADDRESS 

E05 OF THE SOFTWARE SWR (176) IS SUBSTITUTED. 

207 FOR PROCESSORS WITH NO HARDWARE SWITCH REGISTER, THE OPERATOR 

28 SHOULD SET THE DESIRED SWITCH VALUE IN LOCATION 176 

210 WARNING... IN ORDER TO ALLOW TESTING OF M7942-YB BOARDS ON THE VT71, 

211 IF LOACTION 176 IS SET TO 6, THE SOFTWARE SWITCH REGISTER WILL BE 

ele i USED REGARDLESS OF HARDWARE SWITCH REGISTER AVAILABILITY. 

€ 

13 2.3.1 SWITCH SELECTION 

216 THE SWITCH REGISTER (HARDWARE OR SOFTWARE) IS USED TO SELECT 

217 T ION OF THE ROM BOOTSTRAP A BE TESTED 

218 ACCORDING TO THE FOLLOWING TABLE. NOTE: THESE SETTINGS ARE 

219 OCTAL NUMBERS. THEY ARE NOT PARTICULAR /SUITCHES SET TOA 

220 ONE. FOR EXAMPLE, TO SELECT THE M9301-YH VERSION, SET 

221 SWITCHES #3 AND bi IN THE SWITCH REGISTER. THIS 

eee CORRESPONDS TO AN OCTAL le. 

224 SWR MODULE VERSION 

225 =<  enewnwasenwase 

226 

227 1 M9301-YA 

228 2 M9301-YB 

229 3 M9301-YC 

230 4 M9400-YA (OR YC) 

231 S M9301-YF 

232 6 M7942-YB 

e33 7 M9301-YO 

o34 10 M9400-YH (OR YK) 

235 ll M9311 

236 12 M9301-YH 

ea? 13 M930i- 

56 14 M9301-Y 

240 IF THE CRC AND LPC FOR NEW YERSIONS ARE KNOWN BUT 

241 NOT IN THE ABOVE TABLE, SET THE SWITCH REGISTER TO ZERO 

ede AND ANSWER THE TELETYPE DIALOG 

e44 TO DETERMINE THE CRC AND LPC FOR A NEW VERSION. START 

245 THE DIAGNOSTIC AT 200 WITH SWR=0. ANSWER O TO THE 

2 EQUEST AND CRC. RESULTING MESSAGE 

247 WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND 

ew LPC PROVIDED THE TEST IS RUN ON A KNOWN-GOOD MODULE. 

250 2.3.2 TELETYPE DIALOG 

ess S@OSS2AR2 222028 

252 

252 SEVERAL QUESTIONS ARE ASKED OF THE OPERATOR IN ORDER 


GOl 
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2sy TO OBTAIN SUFFICIENT INFORMATION FOR TESTING A ROM MODULE 
25s NOT PREVIOUSLY D IN THE DIAGNOSTIC. THE DIALGs 
256 IS INITIATED IF T OGRAM IS STARTED WITH THE SWR = 3. 
257 ALL RE ES ARE IN OCTAL AND TERMINATED BY A 
58 CARRIAGE RETURN 
260 ALL RE S ARE CHECKE FOR VALID OCTAL NUMBERS. 
261 IF AN ILLEGAL CHARACTER IS TYPED, THE PROGRAM WILL TYPE 
262 A "9" CARRIAGE RETURN-LINE FEED AND 
eb3 AWAIT’ THE PROPER INPUT. 
265 ‘IF A MISTAKE IS NOTICED BEFORE THE CARRIAGE RETURN IS USED 
266 TO TERMINATE THE INPUT, A RUBOUT CAN BE 
67 USED TO DELETE MISTYPED INPUT. 
269 1. TYPE CRC VALUE: 

70 THIS REQUESTS THE VALUE OF THE CYCLIC REDUNDANCY CHECK 
71 PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE. 

72 IT IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST’S CRC 
2? WILL BE COMPARED. 
274 
275 2. TYPE : 
e7k THIS REQUESTS THE VAULE OF THE LONGITUDINAL PARITY CHECK 
277 PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE. 
278 IT IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST’S LPC 
273 WILL BE C 
281 3. TYPE STARTING ADDR. OF 1ST ROM ADDR. SPACE: 
2e2 THIS QUESTION REFERS TO THE FACT THAT THE ROM SPACE IN 
233 AROM BOOTSTRAP MODULE IS DIVIDED INTO 2 DISTINCT ADDRESS SPACES. TYPE 
284 THE STARTING ADDRESS OF THE 1ST RANGE OF ADDRESSES. THE 
es STANDARD M9301 & M9400 BEGIN AT 173000. 
287 4. TYPE LENGTH (BYTES) OF 1ST ROM ADDR. SPACE: 
282 THIS REQUESTS THE LENGTH OF THE 1ST GROUP OF ROM ADDRESSES : 
289 IN BYTES. THE ST M9301 8 MSHOO HAVE AN INITIAL ADDRESS SPACE 
290 OF 1000 BYTES. IF THIS SECTION OF ADDRESSES IS NOT 
ca USED BY THIS VERSION, ANSWER O TO THIS QUESTION. 
293 S. TYPE STARTING ADDR. OF 2ND ROM ADDR. SPACE: 
234 THIS REFERS TO THE FIRST ADDRESS IN THE SECOND DISTINCT 
295 GROUP OF ROM SSES. THE RESPONSE FOR A STANDARD 
e% M9301 8 M9400 WOULD BE 165 
297 6. TYPE LENGTH (BYTES) OF ND ROM ADDR. SPACE: 
236 THIS REQUESTS THE LENGTH OF THE ND GROUP OF ROM ADDRESSES 
233 IN BYTES. THE STANDARD M9301 & M9400 HAVE A SECOND ADDRESS SPACE 
300 OF 1000 BYTES. IF THIS SECTION OF ADDRESSES IS NOT USED 
301 BY THIS VERSION, ANSWER 0 TO THIS QUESTION. 
393 2.4 EXECUTION TIMES 
304 aeaeSNNee SeneeeD 
306 THE DIAGNOSTIC COMPLETES 1 PASS IN LESS THAN 1 SEC. 
307 ONCE THE INPUT DIALOG HAS BEEN COMPLETED. 


THE PROGRAM WILE HALT UPON COMPLETION: HOWEVER, IF RUNNING 
UNDER APT THE PROGRAM WILL CYCLE CONTINUOUSLY. 
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3.0 . ERROR INFORMATION 


SULT DSOUSLIT IETS Eat RISES PRIN 


ANY DISCREPANCY IN THE LPC CAN ASSIST IN ISOLATING THE 
PROBLEM TO THE ROM IC. 


GIGI WWI WIG Wd 
+ b= b= b= bb be pe 
OD IMU Wle-O 


1 UNDER APT THE ERROR IS INDICATED BY DEPOSITING ERROR INFORMATION 
ee IN THE APT MAILBOX BEFORE HALTING. 

324 4.0 PROGRESS REPORTS 

Sees cee 

327 1 THe END OF EACH PASS THE PROGRAM INCREMENTS TO THE 
328 LOCA TION SPASS WHICH IS IN THE APT MAILBOX. THIS 

329 LOCATION WILL ALWAYS CONTAIN OF PASSES 

330 COMPLETED. $PASS IS RESET rth EVERY RESTART. 

332 ADDITIONALLY THE MESSAGE “END OF TEST” IS PRINTED ON THE CONSCLE 
333 TELETYPE AFTER EACH PASS. NORMALLY ONLY ONE PASS NEEDS 
334 TO RUN TO VERIFY THE MODULE. 

336 5.0 TROUBLE SHOOTING 

oe i eee, ee a re 

339 THE ALGORITHM FOR COMPUTING THE CRC IS THE SAME AS THAT 
346 USED ON 9-TRACK MAGNETIC TAPE WITH ODD PARITY. THE 

341 CRC IS CALCULATED ON A BYTE-BY-BYTE BASIS. WHILE THE 
342 ALGORITHM IS SUCCESSFUL IN DETECTING MULTIPLE ERRORS, ITS 
343 USE AS A DEBUGGING AID IS LIMITED. 

345 THE LPC IS CALCULATED BY ASSEMBLING THE XOR OF EVERY 

346 WORD IN THE ROM. WHILE ONLY USEFUL IN CATCHING AN 

347 0 EACH BIT POSITION, IT IS 

348 USEFUL IN ISOLATING THE PROBLEM TO A CHIP: BY LOCATING WHICH 
349 BIT POSITIONS ARE IN DISCREPANCY, THE CORRESPONDING ROM 
350 CHIPS CAN BE ISOLATED. 

365 IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGRAM 

353 AT 210 AND COMPARE THE PRINTOUT OF THE CODE WITH THE 

354 LISTING FOR THE VERSION BEING TESTED 

356 

67 * * CPUTION * * 

3€9 BECAUSE THE CONTENTS READ FROM LOCATION 773024 

360 OF THE M9301 OPTION IS CONFIGURATION DEPENDANT(SWITCH 

361 REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED IN 

3 THE DATA CHECK. 

363 THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 
364 THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) TO 

365 PRINT OUT THIS LOCATION. 
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369 6.0 LISTING 


aon 


JO1 


PE GARD ESBRY-77 1S:e4 PAGE 9 Seo 0009 


000400 
000200 


or ABS 

“RLIST MC MD, CND 
SSWR= 

-SBTTL BASIC DEFINITIONS 

AF NT TIAL A SS OF THE STACK POINTER ##* 1100 ### 


-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
EQUIV IOT; SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


ree DEFINITIONS 


ATs ; CODE FOR HORIZONTAL TAB 
CR= t ee SR LANE TREE ORET 
CRLF= 200 DE FOR CARRIAGE RET URtY-L INE FEED 
PS= 177776 + EROGESSOR STATUS WORD 
é v FS,PSH 
STKLMT= 177774 5 | STACK LIMIT REGISTER 
= 17777 ; ;PROGRAM_ INTERRUPT REQUEST REGISTER 
DOSWR= 177570 HARDWARE SWITCH REGISTER 
DDISP= 177570 : HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
Ro= %0 ;;GENERAL REGISTER 
Ri= %1 »:GENERAL REGISTER 
Ro= “2 = GENERAL REGISTER 
R3= %3 +: GENERAL REGISTER 
RY= “4 :: GENERAL REGISTER 
RS= 4S ::GENERAL REGISTER 
Rb= % ;;GENERAL REGISTER 
R7= “7 :GENERAL REGISTER 
SP= % + § STACK POINTER 
PC= “7 :PROGRAM COUNTER 
;4PRIORITY LEVEL DEFINITIONS 
PRo= ssa :PRIORITY LEVEL 0 
PRiz= 40 : RIORITY LEVEL 1 
PRe= 100 ;;PRIORITY LEVEL 2 
PR3= 140 :PRIORITY LEVEL 3 
PRY= 200 PRIORITY LEVEL 4 
PRS= 240 ssPRIORE TY LEVEL S 
PRE= 300 :PRIORITY LEVEL 6 
PR7= 340 !:PRIORITY LEVEL 7 
ix" SUITCH REGISTER” SWITCH DEFINITIONS 


SWl2= 10000 
SWli= 4000 
SWl0= 2000 
SWOS= 1000 
SWO8= 40 
SWO7= 200 


OREN pIRSY 2GZ4A90H} EtSURY-77 1S:ed PACE LO rr rons 


000100 


000001 


000004 


860614 
000014 


000034 


= 100 
eta: 38 


PE A le ae a me 
Oo 
N 
" 
at) 
oO 
Oo 


TOO= 


* DDODWDOODWDOWMOWDODOMMo- 


m 

© 

= 

i) 

< 
DOOOVDOWOOMWO~—mw+c 


-. we +. - - a e+. 
fesTesfecleseslesleulesles}en) 
4 4 4 4 4 4 
AAA 
O-NW £UIM~IMOW 


KO1 


;*DATA BIT DEFINITIONS (BITOO TO BIT1S) 
S= 000 


ier “CPU” TRAP VECTOR TIME CUT 


TBI vec= i 


Ey i 
BPT VEC= 1 
IOTVEC= 59 
PWRVEC= 24 
EMTVEC= 30 
TRAPYEC=34 


ME OUT AND OTHER ERRORS 
ie BYE AND ILLEGAL INSTRUCTIONS 


:; TRACE TRAP 
;;BREAKPOINT TRAP (BPT 
+ OUER FAIL” TRAP (TOT) ##SCOPE 


!tEMULATOR TRAP (EMT) **ERROR# 
::"TRAP™ TRAP 


SEQ 0010 


LO 
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497 000060 TKVEC= 60 ; TTY KEYBOARD VECTOR 

488 000064 TPVEC= 64 ttaTy PRINTER VECTOR 

489 00024 PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 

490 Bp05c0 a 

431 .SBTTL TRAP CATCHER 

493 ooo0ce 

+" POLO RT CH TCLERAL. TRAPS BNO oITeRRCeTS Smtr” 

436 Ania Sui oc Tea z $B ARCH IRPROPE RES LOADED VECTORS 

498 000174 oOc0000 DISPREG: ;;SOFTWARE DISPLA TER 

499 000!76 O00000 “HOR 5 :: SOFTWAR HARE erage VRE eTLA 

500 000200 

501 005067 900624 CLR TYEOUT 

S02 000204 9000167 O00666 JMP 

503 000210 012767 000001 00612 MOV ary AR YPOUT 

eos 000216 600167 o006S4 IMP 

506 177776 PS=177776 

307 000034 TRAPVEC=34 

509 001000 .=1000 

S10 001000 177570 SUR: 177570 

$11 001902 177570 DISPLAY: 177570 

Sle 001004 i73090 ROMSAL: 173000 

£13 001006 091000 DATLNI: Sle. 

£14 001010 i6s090 ROMSA2: 165900 

51S 001012 001000 DATLN2 

516 001014 co0000 XORS: 0 

517 001016 oo0000 EXCRC: O 

518 001020 EXLPC: OQ 

519 001022 oo0000 ACTCRC: 0 

S20 001024 goo000 ACTLPC: O 

S21 001926 oo0000 PARCNT: O 

bce 001030 090000 TYPOUT: 0 

sed -SBTTL ACTI1 HOOKS 

S26 ; s RELAKELSRARA EAE RELE LEAS RRA SALE LALA LAS A SALA AA RASA A RASS HALAS ARAE 

527 ‘HOOKS REQUIRED BY ACT11 

528 001032 $SVPC=. :SAVE PC 

529 oo0046 =46 

£30 ooc046 02060 $SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 

S32 ooc0se oo0000 “WORD O 5 s2)SET LOc.S2 TO ZERO 

533 001032 =$SVPC :: RESTORE PC 

534 .SBTTL APT PARAMETER BLOCK 

S36 ey LOCATING 20 a Gl ae REGIED TA er ee 

537 SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

532 ion | ae cad iat 

639 001032 .$X=. ss S0VE CURRENT LOCATION 

540 000024 "=24 “SET POWER FAIL TO POINT TO START OF PROGRAM 


S41 000024 000200 200 FOR APT START UP 
c4e 000044 44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 


MO1 


OFA pHECY1 267410063 e7SUAY-77 15:24. PARE OAETER BLOCK SEO D012 
nn1e 
Byq COON AAI BaS SEPTNOR i iPPeST TB AFT NE BREN TERO 
Sys TTT TT TTT TEST TTT TTT TTT T ESTE TT TTT ETT TT TTT T TTT TLE TCT TTT Te 
ee iS TUE-APT POR PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
4g 
549 001032 THO: 
SSO 001932 ooocoo SHIBTS: .WORD 0 a + THO HIGH BITS BITS OF 18 8 BIT MAILBOX 12008 
WU $ . a - 
ees poids? BoaeHs eR 3" i Run TTR & fo ONG CT Teer 
553 001049 o0000e SPASTM: .WORD 2 N-SECS, OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
554 oO01042 900000 SUNITM: .WORD : DDI Tone RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
S55 001044 000014 .WORD  S$ETEND- si’ L72 ;;LENGTH MAILBOX-E TABLE (WORDS) 
55 .SBTTL APT VAILBOXE TABLE 
34 ; Gea ener cconnepeamammpanmmnepenense stone rite ee 
"EVEN 
560 O01046 $MAIL: ; APT MAILBOX 
561 OO10%6 oo0000 SMSGTY: .WORD AMSGTY ;:MESSAGE TYPE CODE 
S62 001050 900000 SFATAL: .WORD FATAL ;;FATAL ERROR NUMBER 
563 001 05¢ STESTN: .WO ATESIN ::TEST R 
S64 001054 0 SPASS: “HOR APASS :: 
S65 001056 900000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
566 - 001060 900000 SUNIT: :WORD UNIT 31/0 UNI R 
567 001062 o00000 SMSGAD: .WORD AMS + ESS 
S68 901068 oo0900 SMSGLG: .WORD AMSGLG ;;MESSAGE LENG 
S69 001066 SETABLE: ; APT ENV IROWEN TABLE 
570 O01066 SENV: .BYTE ENV :ENVIRONMENT BYTE 
571 001067 0 SENVM: .BYTE AENVM ::ENVIRONMENT MODE BITS 
572 001070 oo0000 SSWREG: .WORD ASWREG ::APT SWITCH REGISTER 
573 001072 oo9000 SUSWR: .WORD QUSWR ::USER SWITCHES 
574 001074 ooo0c0 SCPUOF: :WOPD ACPUOP ::CPU TYPE,OPTIONS 
575 -# BtTS 15-11=CPU TYPE 
576 1 11704201, 11/05= 02, 11720203, 11/40=04, 11745=05 
577 1 11/70=06, ’PDQ=07, 0=10 
578 1 BIT 10=REAL TIME 'C 
579 1% BIT 9=FLOATING POINT PROCESSOR 
580 or BIT ®=MEMORY MANAGEMENT 
581 001076 $ETEND: 
oe MEXIT 
584 001 005067 177746 START: CLR SFATAL ;CLEAR ERROR NO. 
585 001102 005067 177740 CLR $MSGTYP ‘CLEAR MESSAGE TYPE (APT? 
S86 001106 012767 O00001 177736 MOV #1, $TESTN :SET TEST NO. 
587 .SBTTL INITIALIZE’ THE COMMON TAGS 
588 001114 012706 fooso0 MOV #500, SP ;;SETUP THE STACK POINTER 
589 js INITIALIZE A Fei VECTORS 
590 001120 012737 o04570 oD0034 MOV #STR ; TRAP {VECTOR FOR TRAP CALLS 
591 001126 012737 000340 900036 MOV #340 MO RTRAPVECTS; tive 
592 001134 012737 o04412 900024 MOV #SPWRON, J#PWRVEC ; « POHER FAILURE VECTOR 
593 001142 012737 OO00340 O00026 MOV #340, J#PWRVEC+e : : LEVEL 
os :;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
595 :tEQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
S96 001150 013746 oco004 MOV DHERRVEC,-(SP) ;;SAVE ERROR VECTOR 
597 001154 012737 001210 opo004 MOV #64S, JKERRVEC 5 $BET UP ERROR VECTOR 
598 001162 012767 177570 177610 MOY #DSWR , SWR ::SETUP FOR A HARDWARE SWICH REGISTER 
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SPEER 


012767 
022777 
001012 


000403 
012716 
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177570 
177777 


001216 


000176 
000174 
p00004 
1776 

0002 

001070 
176556 


176446 
000001 
177416 


177370 
177360 
177332 


177322 


177604 
177574 


177554 
177550 


177617 


177520 
002060 


O00006 
177466 


177422 


177462 


3 
INITIALIZE THE COMMON TAGS 


MOV SODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTEP 
CMP 8-1, aSWR 33 TRY To REFERENCE 
BNE 66$ $3 H IF NO TIMEOUT TRAP OCCURRED 
HARDWARE SWR IS NOT = -1 
BR 65$ BRANCH IF NO TIMEOUT 
64S: NOV #65$, (SP) CET UP FOR TRAP RETURN 
65$: MOV ;;POINT TO SOFTWARE SWR 
MOV ep]ePREGD DISPLAY 
66S: MOV SERRVEC ; ;RESTORE ERROR VECTOR 
CLR :; 
atte mrTsize, SENVM TEST Use SS EN INDER APT 
BEQ SEENON FET SWITCH 
ah MOV SSeuREG, SWR : INO, USE APT SWITCH REGISTER 
CMP 42 sSENDAD sACT AUTO MODE? 
EG. RESTRT ‘YIF SO: BR 
Y 
TITL 
RESTRT: CMPB #176, #6 :IS SOFTWARE SWITCH REGISTER =6? 
BNE ‘IF NOT, NORMAL Y 
MOV ESUREG SWR LIF 759, 5e THE SOFTWARE SWITCH REG 
1S: MOV RRO :GET §S 
BEQ at ae IF ZERO: GET INPUT 
ST2: RSL RO 
MOV TXLPC (RO) , EXLPC sFETCH EXPECT. LPC 
MOY TXERC (RO) 7 EXCRC ‘FETCH EXPECTED CRC 
MOY TDLN! (RO) ’DATLN :FETCH IST LENGTH 
MOV TRMSA1 (RO). ROMSAL ‘FETCH 1ST STARTING ADDR. 
MOV TOLN2 (RO), DATLN2 FETCH 2ND LENGTH 
MOV TRMSA2(RO} . ROMSAC FETCH 2ND STARTING ADDR 
BR CHECK G0 COMPUTE 
GETIN: TST 42 ‘UNDER ACT AUT ACCEPT? 
BNE CHECK ‘IF SO; A USE DEFAULT PARAMETERS 
CMPB 3 s#1, SENV : UNDER’ AP 
BEG CHECK IF SO: BR 
TST TYPOUT ROM TYPE OPTION 
BNE GET2 !IF SO: BR 
TYPE 
GETCRC 
ROOCT 
MOV (SP)+,EXCRC : STORE EXPECT. CRC 
TYPE ‘TYPE LPC INPUT REQUEST 
GETLPC 
ROOCT 
MOV (SP)+,EXLPC :STORE EXPECTED LPC 
GET2: TYPE 
al ;REQUEST 1ST ADDRESS SPACE 
RDOCT : INPUT SA 
OV (SP) +, ROMSAL 
TYPE :REQUEST LENGTH OF IST ADDR. SPACE 
RDOCT INPUT LENGTH 


MOV (SP)+,DATLNI 


SEQ 0013 


B02 
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a | 
ow 


— 


BEG 
TYPE 


i 


DINSAD TIALIZE THE COMMON TAGS SEG 0014 
655 O01464 10440 TYPE :REQUEST START ADDR. FOR 2ND SPACE 
656 001466 sA2 
657 OO1470 104407 RDOCT ; INPUT SA 
658 001472 012667 177312 MOV (SP) +, ROMSA2 
a) OO1476 Gws0l i ;REQUEST LENGTH OF 2ND SPACE 
660 001 1 SI 
661 001502 104407 RDOCT ; INPUT LENGTH 
&6e OO1SO4Y 012667 177302 MOV (SP)+, DATLNE 
$63 001510 7? 177314 CHECK: TST TyPout ;IS TYPOUT REQUESTED? 

664 001514 001402 BEQ 1 :BRANCH IF NOT 

S65 001516 000167 O0D660 IMP TYPROM :GO TYPE OUT POM 

66 001522 2 77274 18 cLR ACTCRC [CLEAR STORAGE FOR ACTUAL CRC 
667 001526 ? 177272 CLR ACTLPC :CLEAR STURAGE FOR ACTULAL LPC 
668 001532 016700 177250 MOV DATLNI,RO :SET LENGTH OF 1ST ROM SPACE 
669 001536 001413 BEQ CHO [IF NO VERSION SELECTED: BR 
670 OO1S40 016701 177240 MOV ROMSAL,R1 :POINT TO START OF 1ST ROM SPACE 
$71 OO1S44 004767 000324 ISR PC, CRC : FIRST HALF OF CRC 
S72 001550 016701 177230 MOV ROMSA1.R1 :POINT TO START OF 1ST ROM ADORS. 
673 001554 016700 177226 MOV DATLNI.RO :SET LENGTH OF 1ST ROM ADDRS. 
674 001560 ASR RO ‘CONVERT TO WORDS 

675 001562 004767 OO00SS ISR PC LPC ‘COMPUTE FIRST HALF OF CRC 
676 001566 016701 177216 CHO: MOV ROMSA2, R1 ?POINT TO 2ND ROM ADORS. 

677 001572 016700 177214 MOV DATLN2, RO :SET LENGTH OF 2ND ROM ADDRS. 
678 001576 OOl4e2 BE CHI ?BR IF THIS SPACE NOT USED 
673 901600 004767 ISR PC. CRC :COMPUTE REMAINDER OF CRC 

680 O01604 9016701 1 MOV ROMSA2, R1 ‘POINT TO START OF OND ROM ADDRS 
681 OO1810 016700 177176 MOV DATLNe, RO SET LENGTH OF 2ND ROM ADDRS 
682 001614 006200 ASR RO ?CONVERT TO WORDS 

683 001616 004767 o00S22 JSR PC, LPC ‘COMPUTE REMAINDER OF LPC 

684 OOl622 122767 000001 i77236 CMPB Otsés 1 | SENV :UNDER APT? 

685 001630 001403 BEG 1$ :IF SO: BR 

686 001632 005767 176204 TST 42 UNDER ACT AUTO ACCEPT? 

687 001636 001402 BEQ CH1 IF NOT: 

688 OO1640 000167 oD06S6 1S: INP RUTACT 

689 OO1644 026767 177148 177150 CHI: CMP EXCRC, ACTCRC ;COMPUTED = EXPECTED ” 

p30 0016S2 001431 BEQ CK1 : IF BR 

£92 OO1654 104401 TYPE : TYPE CRC ERROR MESG. 

693 001656 005343 EXCRMG 

6% 001660 016746 177132 MOV EXCRC,-(SP) :PUT EXPECT CRC ON STACK 

695 O01664 104402 TYPOC : TYPE EXPE CRC 

6% O01666 104401 TYPE :TYPE ACTUAL CRC MESSG 

697 001670 oos412 ACCRMG 

698 001672 O16746 177124 MOV ACTCRC, -(SP) ;PUT ACTUAL CRC ON STACK 

699 001676 1 TYPOC : TYPE ACTUAL CRC 

700 001700 026727 176136 od02060 CMP 42, eSENDAD UNDER ACT AUTO MODE? 

701 001706 001404 BEQ is :IF SO: BR 

702 001710 122767 000001 177150 CNPB 81, SENV :UNDER APT? 

703 001716 001007 NE cki [IF NOT: BR 

704 001720 012767 oo0002 177122 MOV 82, SFATAL :MOVE TO MAILBOX ERROR NO. #482 2 #22 
705 001726 012767 900001 177112 MOV 81. SNSGTYP :SET MAILBOX FOR FATAL ERROR 
ce 3 001734 HALT :CRC ERROR 

708 O01736 767 177062 177054 CMP ACTLPC,EXLPC ;COMPARE EXPT. LPC=ACTUAL LPC 
708 001744 001431 CK2 


sIF SO: 
: TYPE LPC ERROR MESSG. 


CO0e 
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711 001750 005365 EXLPNG 

si3 boise lowe I gee tant TYPE EXPECTED LPC 

714 001780 104401 TYPE :TYPE ACTUAL LPC MESSG. 

715 001762 005435 ACLPMG 

716 001764 O16746 177034 MOV ACTLPC, -(SP) ;PUT ACTUAL LPC ON STACK 

717 001770 104402 TYPOC : TYPE ACTUAL LPC 

718 001772 0672" 176044 002060 CMP 42, sSENDAD gg ge buTO MODE? 

719 002000 001 BEQ 1§ 

7e0 O0e002 122767 O00001 177056 CMPB sé 1, SENV ; UNDER APT? 

721 002010 001007 BNE CK2 IF NOT: 

722 OOe0l2 012767 000093 177030 1S: MOV a3, SEATAL ?MOVE TO MAILBOX ERROR NO. #424 3 #844 

7e3 OO0e020 Ole767 000001 177020 MOV 1; SMSGTYP :SET MAILBOX FOR FATAL ERROR 

res 002026 00000 HALT *LPC ERROR 

et 002030 026727 176006 002060 Ck: cre 42, #SENDAD act fuTo ACCEPT? 

72g SOSNB SOE 104401 TYPE : TYPE END OF TEST 

729 O02042 O0S460 EOTST 

730 oo2044 00S26/ 177004 1S: INC SPASS sau Pas Pass COUNT 

732 Osea poi 4os _ BEQ GOAGIN KEEP GOING 

733 O020S6 900005 RESET 

734 002060 004710 SENDAD: JSR PC, (RO) sACT HOOKS 

73S O02062 O00240 NOP 

736 002064 oore4D NOP 

737 002066 000240 NOP 

738 002070 000167 177200 GOAGIN: JMP RESTRT :DO AGAIN 

740 002074 016767 176722 176712 CRC: MOV ACTCRC, XORS 

741 O02102 111104 CLO: MOVB (R1), 84 ;GET CHAR. 

742 O02C104 022701 173024 CMP #173024,R1 SLOCATION EFFECTED BY SWITCHES 

743 002110 001004 BNE CL3 

744 O02lle DEC RO PE IX COUNTERS 

745 0020114 005300 DEC FO 

74% 002116 005721 TST (R1)+ :FIX POINTER 

747 002120 900770 BR CLO : 

748 OOel22 OO4767 900114 CL3: JSR PC, PARITY 560 GET PARITY 

743 002126 004767 OO0166 JSR PC; XOR :XOR CHAR 

750 O021ls2 00241 cic 

751 002134 006004 ROR RY sROTATE 1 POS. RIGHT 

752 002136 103014 BCC cL2 -IF NO CARRY: BR 

753 002140 052704 oo0400 BIS #400, 84 :SET BIT NINE 

754 002144 000041 CLC 

755 002146 010405 CL1: MOV R4Y_RS ' ;SAVE CHAR 

756 002150 042705 177703 BIC #177703,R5 

757 002154 005105 RS 

fee Seis fier bao He uae 

760 O02166 OSOSO4 BIS RS, RY 

761 002170 O10467 176620 CL2: MOV RY’ XORS 

762 002174 005300 DEC RO 

763 002176 001402 BEG CLLAST s IF LAST. CAR.: BR 

764 O02200 O00167 177676 IMP cto :GET NEXT CHAR. 

765 002204 016704 176604 CLLAST: MOV XORS, RY 

7$6 002210 OO0SiE7 176600 COM XORS 


DO02 
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767 4 7 1 176572 b , XORS 

coe ppssts BaS584 177030 te a1 77987 8 :COMPLEMENT ALL BUT BITS 3285 

769 002226 OS0467 17osbe BIS 

go tees D167? 176556 176562 HOV HORS, AC ACTCRC 

772 005067 176560 PARITY: CLR PARENT ;CLEAR BIT COUNTER 

773 O0224% 012703 000010 MOV #10,R3 :SET NO. OF BITS 

om 002252 g3e704 000001 CLPO: BIT a1 Ra ; SEE wr. ONE BIT 

776 BOSSE8 ISSEp pases 176542 INC PARCNT : BUMP COUNTER 

777 002264 000e41 CLP1: CLC 

778 O0e26 906004 ROR RY sROTATE TO NEXT BIT 

780 002272 001367 BNE CL :CONTINUE FOR ALL BITS 

781 002274 112104 MOVE = (R1) +, R4 

782 002276 O4e704 177400 BIC #177400, R4 

783 002302 032767 OO0001 176516 BIT #1, PARCAT ;SEE IF ODD # OF ONE BITS 

74 0 001002 BNE CLRe2 IF SO: 

785 002312 O0S2704 cOoo4o0 BIS : :SET PARITY BIT 

76 000207 CLP2: RTS EXIT 

788 002320 0 XOR: MOV R4, -(SP) ;XOR SUBROUTINE: R4 WITH XORS 

789 O02322 O46716 176466 BIC XORS, (SP) 

ra mers Eber ifeve Be Fei None 

792 002336 016704 176452 MOV XORS , R4 

733 002342 000207 RTS PC 

795 002344 O16767 176454 176442 LPC: MOV ACTLPC, XORS 

7% 002352 012104 LPC1: MOV (R1)+. RY 

797 0020354 Oc2701 173026 CMP $173026,R1 sLOCATION EFFECTED BY SWITCHES 

798 002360 001402 BEQ LPC2 IF SO: SKIP LOC. BY BRANCHING 

799 002362 004767 177732 JSR PC, XOR 

800 002366 005300 LPce: DEC RO 

801 002370 001370 BNE LPC1 

802 002372 O16767 176416 176424 MOV XORS, ACTLPC 

803 002400 900207 RTS PC 

80S O02e402 104401 TYPROM: TYPE ; TYPE HEADER 

806 O02404 006005 TYPHDR 

807 016700 176372 MOV ROMSAL, RO s POINT OT 1ST ROM SPACE 

808 O020412 016701 176370 MOV DATLNI ‘RI PUT LENGTH IN RI 

809 O0C416 006201 ASR Ri :CONTERT TO WORDS 

810 O0e420 001402 BEQ TYPRI ; BRANCH IF 1ST ROM SPACE NOT USED 

811 OOe%e2 004767 000026 JSR PC, TYP :GO TYPE 1ST ADDR. SPACE 

Bl2 O02426 016700 176356 TYPR1: MOV ROMSA2, RO :POINT TO 2ND ADDR. SPACE 

813 O0e432 016701 176354 MOV DATLNe.R1 : PUT LENGTH IN R1 

814 002436 006201 ASR RI :C0 TO S 

81S 001402 BEQ ENDOT :BR IF OND ADDR. SPACE NOT USED 

816 O0e442 004767 o00006 JSR PC, TYP :GO TYPE 2ND ADDR. SPACE 

817 OOC446 104401 ENDOT: TYPE 

818 OO24SO OOS460 OTST 

819 oo0e4S2 o00000 T 

820 

B21 


002e4S4 104401 TYP: 
ooe4S— 00577 


cao 
ni 
t 

N 
oOo 
2D 
P*] 
= 
nn 


- MAIN. 


DZMSAD. 


PRE ORC Coe URNS UR Ose Tet oe SOBIRR EE SS TREES 
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002634 
002636 


00264C 


OLl64e 
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000003 


176224 
176214 


BR 
TYPO: git 
TYP3: TYPE 


TYPe: 


AUTACT: 
AUTIL: 


AUTe: 
AUT3: 


AUTERR: TYPE 


E02 


#2, RO 
TMSG(RO), #1 
TXCRC(RO) , ACTCRC 
pulls 
ds4e, #SENDAD 
TMSG(RO) , AUT2 


TXCRC(RO) , EXCRC 
fay ee re 


#1,SFATAL 
#1, SMSGTYP 


-SBTTL TTY INPUT ROUTINE 


sADDRESS MULTIPLE OF 4? 
;IF NOT: BR 


; TYPE aor 


;PUT DATA ON STACK 
TYPE 2 SPACES 


; FINISHED? 
;IF_NOT: 

: RETURN 

BUMP TALBE INDEX 

; CHECKED ALL KNOWN VERSIONS? 
:DOES THIS CRC AGREE? 

TF NOT: KEEP LOOKING 
tUNDER ACT AUTO ACCEPT? 


;IF SO: BR 
:SET UP VERSION MESSAGE 


;SET EXPECTED CRC 
; SET gt hee LPC 


;MOVE TO MAILBOX ERROR NO. 
;SET MAILBOX FOR FATAL ERROR 
;AUTO ACCEPT FAILED 


ss KELLRASEEKASLELALARALALAL ESE LLARAAARLELE LAAARALELARLEAAELATAAARER 


$tks: . WORD 
$TKB: . WORD 
-ENABL LSB 


-DSABL LSB 


177560 
177562 


;;TTY KBD STATUS 
;:TTY KBO BUFFER 


ss RELARREERSAALESE RARE LSA RAASELELA LALA AA LA LAA AREA ALAA ELA RAARALERAE 


, 
st 
‘ 
; 


SROCHR: MOV 


ROCHR 
+ RETURN HERE 


(SP) ,-(SP) 


; ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
’ :; INPUT A SINGLE CHARACTER FROM THE TT 
::CHARACTER 1S ON THE K 

::WITH PARITY BIT STRIPPED OFF 


:;PUSH DOWN THE PC 


;PUT ADDRESS ON STACK 


2222 6] 


SERE 


SEQ 0017 


FOe2 


. MACYLI of" 4SHAY-77 15:24 
BonenO. Pit oe a try’ TaBut ROUTINE SEQ 0018 

oa e598 ons ~~ - Mere gstKg «= FEBRYS EBB PS 

aay poseeq 10856 BPL A CHARACTER 

se Meee bere [7k BOMB EA Silany HEP ati a Yaw oF a 

884 poses peaes saanos 000023 CMP 4(SP), #23 3318 IT A CONTROL-S? 

88S 002700 001013 BNE $3 IF NO 

886 O02702 105777 177726 23: TSTB ss AS TKS T FOR 

887 002706 100375 BPL 2S ?;LOOP UNTIL ITS THERE 

888 002710 11774% 177722 MOVB  a$TKB,-(SP) 31.00 CHARACTER 

889 002714 O42716 177600 BIC aiCl7>,¢ (SP) ::MAKE IT 7-BIT ASCII 

890 002720 O22627 000021 CMP SP)+, #21 ::IS IT A CONTROL-Q? 

891 002724 001366 BNE se ::IF NOT DISCARD IT 

892 000750 BR 1$ *: YES. RESUME 

893 002730 Oe6627 O00004 O00140 3S: CMP 4(SP), #140 i]s tT UPPER ? 

894 092736 O00c407 BLT 4§ IF YE 

g9S Ge66e7 oo0004 000175 CMP 4(SP), 8175 $318 ITA SPECIAL CHAR? 

8% 000746 BGT 4 

897 002750 O42766 ocOo04O ooD004 BIC #40, 4(SP) 3; MAKE IT pPER CASE 

898 002756 O0000e 4S: RTI *GO BACK TO 

8393 jPereessreveseenecreseeecteeehicnesatseneeneseeecnenecneress 

300 :ATHIS: ROUTINE WILL INPUT A STRING FROM THE T 

302 :% ROLIN 3; INPUT A STRING FROM THE T 

903 ie RETURN HERE : ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

304 1% TERMINATOR WILL BE A BYTE OF ALL O’S 

906 002760 010346 SROLIN: MOV R3,-(SP) ;;SAVE R3 

307 002762 CLR (SP) 3;CLEAR THE RUBOUT KEY 

908 002764 012703 003214 1$: MOV SSTTYIN R3 :GET ADDRESS 

809 002770 022703 003224 2s: CMP aSTTYINSS. ,RB ;HBUFFER FULL? 

910 002774 101456 BLO 4§ 

911 002776 104405 ROCHR ::G0 READ ONE CHARACTER FROM THE TTY 

912 903000 112613 MOVB  (SP)+, (R3) GET CHARACTER 

813 003002 122713 000177 10$ CMPB 3Ssa8 177, {R3) 3318 IT A RUBOUT 

914 003006 001022 c$ :BR IF NO 

915 003010 005716 TST (SP) irs THIS THE FIRST RUBOUT? 

916 002012 001007 BNE 6$ :BR IF NO 

917 003014 112767 000134 000170 MOVB = &#"\, 98 :: TYPE A BACK SLASH 

918 003022 104401 O03212 TYPE 95 

919 003026 012716 177777 MOV b-1, (SP) ;;SET THE RUBOUT KEY 

$20 003032 005303 6S: DEC R3 ::BACKUP BY ONE 

921 003034 020327 003214 CMP R3, #STTYIN 3;STACK EMPTY? 

922 003040 103434 BLO 4 :BR IF YES 

923 003042 111367 OO00144 MOVB (R3),9 !:SETUP TO TYPEOUT THE DELETED CHAR. 

924 104401 003212 TYPE 9 3300 T 

925 000746 BR 2s :GO READ ANOTHER CHAR. 

326 003054 005716 S$: IST (SP) 3 $RUBOUT, KEY SET? 

a8 900134 000124 MOVB = &"\, 98 :: TYPE A BACK SLASH 


ocodes 7$: eee #eS, (R3) HG CHARACTER A CTRL U? 


NQ 
$CNTLU ii TYPE A CONTROL “U™ 


001406 
00 1Oq401 00321 TYPE 
930 iene 005016 CLR SP) :CLEAR THE RUBOUT KEY 
74 122713 
104401 
000726 {$ :GO START OVER 


GOe 


TTY thBut *RouTINE 


SS ANAM BP? 1, 


93S 003110 2713 o00022 
936 003114 1011 
937 003116 105013 
938 003120 104401 003225 
939 003124 104401 003214 
940 003130 000717 
941 O0313e 104401 003224 
$e 003136 o0071e 
943 003140 111367 O0004% 
944 003144 104401 003212 
945 003150 122723 000015 
$46 003154 001305 
947 003156 105063 177777 
a9 Doses doses 
. 0 003170 O1Seo3 
003172 tee 
003174 O16666 000004 o00002 
Dose Th paeAes 003214 000004 
003212 000 
003213 BoD 
003224 077 
0032. 01S 
003226 000012 


003236 0SeS36 005015 
003235 136 006507 000012 
003242 005015 053523 020122 
003250 75 000 
003253 O40 047040 053505 
003260 036440 000040 


eet oat ab arated al 
e 


164 
6666 900004 000002 


010067 000100 
00 S001 
990 003214 005002 


QS: CMPB ss #22, (RB) 51S C TER A “TR”? 
BNE 3$ i H IF NO 
CLRB ss (R3) ::CLEAR THE CHARACTER 
TYP , SCRLF ist CR” & “LF” 
TYP STTYIN TYPE THE INPUT STRING 
BR os 5560 PICKUP ANOTHER CHACTER 
4S: TYPE SQUES TYPE A’ 
BR : CLEAR THE BUFFER AND LOOP 
3S: Ove (R3), 9S !:ECHO THE CHARACTER 
CMPB =s«RIS, (R34 ;;CHECK FOR RETURN 
BNE 2s ::LOOP IF NO 
CLRB = = 1(R3) ::CLEAR RETURN (THE 15S) 
TYPE SLF ;; 1YPE ALINE FEED 
TST tSP)+ ;;CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 STORE R3 
MOV (SP) 


-(SP) 
MOV 4(SP} (SP) $3 FIRST ASCII CHARACTER ON 


MOV #STTYIN, 4(SP) 


RTI ; RETURN 
9S: .BYTE 0 STORAGE FOR ASCII CHAR. TO TYPE 
“BYTE 0 : TERMINA 
STTYIN: .BLKB 8. ‘RESERVE 8 BYTES FOR TTY INPUT 
$QUES: .ASCII "7" oni MARK 
SCRLF: .ASCII <15> ‘ ASRRIAGE RETURN 
SLF: ASCIZ <le> -L ED 


;;CONTROL “U™ 


SCNTLU: LASCIZ 7tU/<1S> tla 
::CONTROL “G" 


SCNTLG: .ASCIZ /G7«15><12> 
SMSWR: .ASCIZ <15><12>/SWR = / 


SMNEW: .ASCIZ 7 NEW = 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


; RRR AERA REE REALE ER ERA EERE E EAA EEE REE EEE ES EEE EEE EE 
pee BOTs ALL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


*#THE INPUT CHARACTERS WILL BE COE CKED TQ _ INSURED THEY ARE LEGAL 
 xOCTAL DIGITS. IF AN ILLEGAL CHARACTER IS oe A "?" WILL BE Tren 

; #FOLL LOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER 

;#THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE "RETURN. 


:#CALL: 
# RDOCT ;READ AN OCTAL NUMBER 
:# RETURN HERE LOW ORDER BITS ARE ON TOP OF THE STACK 


+ ;;HIGH ORDER BITS ARE IN S$HIOCT 


SRDOCT: MOV (SP). -(SP) ; PROVIDE SPACE FOR THE 
MOV 4(SP} 2(SP) : T NUMBER 
MOV RO, -(5P) ::PUSH RO ON STACK 
MOV R1'-(SP) ::PUSH R1 ON STACK 
MOV Re’ -(SP) ::PUSH Re ON STAC 
1S: ROLIN : READ AN ASCIZ LINE 
MOV (SP)+,RO 3 T ADDRESS OF 1ST CHARACTER 
MOV RO, S$ : AND 
CLR Ri :: CLEAR DATA WORD 
CLR Re 


; ;ADJUST THE STACK AND PUT ee ee CF THE 


SEG 0019 


aonets. pit nCv 1 67110082 e135 -MAY-77 


td 
= 
— 
LJ 


a8 88888 


88 


Oo000D 
BER 00RRRR 


001405 


000067 


177770 


000012 
000026 


003224 


oodees 


000002 
000001 


15:24 _ PA 


HO0e 


READ ah SeraL NUMBER FROM THE TTY 
(RO)+, -(SP) 


2s: 


3$: 


4§: 


Ss: 


$SHIOCT: 


BR 
WORD 


-SBTTL TYPE ROUTINE 


5 SRE EEE EE HEHEHE RE EEE EEE REE EERE EEE EERE E EERE 
: KROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


175414 


000100 175405 


; #THE ROUTINE 
NOTE]: 


TYPE 
MESADR 


WILL INSERT A NUMBER OF NUL ACT 
SNULL ys THE CHARACTER TO BE USED 


Bt ae o HF t, tralaaat 

: :MAKE SURE THIS CHARACTER 
;;I1S AN OCTAL DIGIT 

33#e 

734 

33 #8 


HFRS in"ths 61rT 


 ehee JE RIZOGTOF FROM STACK 


;;POP STACK INTO Re 

5 3 BOP TACK INTO R 

ii POP STACK INTO R 

33CL AN oe FROM STACK 
;SET A TERMINATOR 

;;TYPE UP THRU THE BAD CHAR. 

: cle “CR” & 7" 


; TRY AGAIN 
:;HIGH ORDER BITS GO HERE 


ERS AFTER_A 
ILLER CHARACTERS REGUIRED. 


TAINS THE NUMBER OF 
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


STPFLG 
1$ 


33 
RO, -(SP) 
d2tSP),RO 


CALL: 
;*#1) USING A TRAP INSTRUCTION 
TYPE , MESADR 


#APTENY, SENV 


#APTSPOOL, 
62S 


SENVM 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


::]5 THERE A TERMINAL? 
:{HALT HERE IF NO TERMINAL 


t RO 
GET ADDRESS OF ASCIZ STRING 
:RUNNING IN APT NODE 
!!NO,GO CHECK FOR APT CONSOLE 
‘icp POOL MESSAGE T 
!!NO,GO CHECK FOR CONSOLE 


LINE FEED. 
AS THE FILLER CHARACTER. 


SEG 0020 


102 


OOS) pTRCYT 2G 7AA00G3 ENSUAY-77 15:24. PAGE Phe SEQ 0021 
1047 003464 010067 000004 MOV RO,61$ ;;SETUP MESSAGE AODRESS FOR APT 
1048 003470 004767 000230 ISR PC’ SATY3 ::SPOOL MESSAGE T 
1049 003474 900000 61$: .WORD O RE SSA ADDRESS. 
1050 003476 132767 OO0040 175363 62$:  BITB  sAPTCSUP,SENVM ;:APT CONSOLE SUPPRESSED 
1051 003504 001003 BNE 60 :: YES, SKIP Type ou 
1052 003506 11204 2s: MOVB (RO) +,-(SP) ::PUSH CHARAC R40 3 TYPED ONTO STACK 
1053 003510 001005 PNT 4g ::BR IF IT TNT THE TERMINATOR 
1054 003512 005726 TST (SP)+ ite TERMINATOR POP IT OFF THE STACK 
1055 003514 012600 60$: MOV bgt RO TORE 
1056 003516 062716 o0000e2 33. ADD (SP) : San TUST RETURN PC 
10S7 o03S22 o00002 RTI : RE 
1058 003524 122716 O00011 ug: CMPB ott. rer BRANCH IF <HT> 
1059 003530 u01430 BEQ 8$ 
1060 003532 122716 oo0200 CMPB = #CRLF, (SP) \_ ;;BRANCH IF NOT <CRLF> 
1061 003536 001006 BNE | 
1062 003540 005726 TST (SP)+ ;;POP_ <CR><LF> EQUIV 
1063 003542 104401 TYPE :: TYPE A CR AND LF 
idee Boseue iar 000130 STR SCHARCNT CLEAR CHARACTER COUNT 
1066 003552 000755 BR tGE NEXT CHARACTER 
1067 003554 004767 ojD0S6 S$: JSR PC, STYPEC ::G0 TYPE THIS C 
1068 003560 126726 000130 65: CMPB 3s SFILLC,(SP)+ 3:1S IT TIME FOR Pen CHARS. ? 
1069 003564 001350 BNE S -:IF_NO GO GET NEXT C 
1070 003566 016746 000120 MOV $NULL, -(SP) ::GET # OF FILLER CHARS. NEEDED 
1071 :AND THE NULL CHAR. 
1072 003572 105366 000001 7$: DECB =A SP) ::DOES A NULL NEED TO BF TYPED? 
1073 003576 002770 BLT ::BR IF NO--GO POP THE NULL OFF OF STACK 
1074 003600 004767 000032 JSR PC, $TYPEC :G0 TYPE A NULL 
1075 105367 o00072 DECB § SCHARCNT !:D0 NOT COUNT AS A COUNT 
10% 003610 000770 BR 7§ : : LOOP 
1078 ;HORIZONTAL TAB PROCESSOR 
1080 003612 112716 ooc040 QS: MOVB (SP) : REPLACE TAB WITH SPACE 
1081 003616 004767 O00014 95: JSR Pc, $TYPEC :: TYPE A SPACE 
1082 003622 132767 000007 ocoDDSe2 BITB #7, SCHARCNT ; BRANCH IF NOT AT 
1083 003630 001372 BNE ::TAB STOP 
1084 005726 TST (SP)+ ::POP SPACE OFF STACK 
1085 003634 000724 BR 2g ::GET NEXT CHARACTER 
1086 105 000044 STYPEC: TSTB a$TPS !:WAIT UNTIL PRINTER IS READY 
1087 003642 100375 BPL STYPEC 
1088 116677 O00002 000036 MOVB 2(SP). aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
1089 2766 OO001S 000002 CMPB acR,2lSP) 5518 CHARACTER A CARRIAGE RETURN? 
1090 100 BNE 1 ::BRANCH IF 
1031 003662 7 00014 CLR SCHAR CHARCNT itt =-CLEAR NCHARACTER COUNT 
1535 003670 122766 o00012 oo0002 15: CMPB LE Po SP) IIS CHARACTER A LINE FEED? 
1094 003676 001402 BEQ $TYPEX : BRANCH HIF Y 
1095 87 INCB. (PC) + ‘COUNT THE C 
1 0 SCHARCNT: . WORD - :! CHARACTER ROUNT: g BRAGE 
1097 003704 000207 STYPEX: RTS PC 
1 003706 177564 $TPS: .WO 177564 s;]TY PRINTER STATUS REG. ADDRESS 
1P8¢ ite * 177566 STPB: “HOR 1352ee !TTY PRINTER BUFFER REG. RODRESS 
1101 003712 000 SNULL: .BYTE 0 :: CONTAINS NULL CHARACTER FOR FILLS 
1192 003713 002 SFILLS: .BYTE 2 ::CONTAINS # OF FILLER CHARACTERS REQUIRED 


JOe2 
bun 
, 7 4-MAY-77 : A 
OFAN YRC’! 1367440053 e459 to: et ERE Fine SEG o022 
11 714 YT 2 - RT FILL CHARS. AFTER A p” 
HB BEL SEARLE: <BOTE AE oe mourn TERN Htc FER AINE Ate 
iit ivi: wa GL a” sn. to PONT Phin oon 
1108 003716 112767 000001 o00e36 $ATY1: MovB #1, SFFLG TO REPORT FATAL ERR 
i109 003724 112767 O00001 000226 SATY3: MOVB #1°SMFLG itT0 TYPE A MESSAGE 
1110 903732 000403 BR gatyc 
Hd 112767 000001 900220 Satya: MOVE 4#1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
1113 003742 oO10046 "MOV RO,-(SP) ;;PUSH RO ON STACK 
1114 003744 O10146 MOV R1,-(SP) ::PUSH R1_ON STACK 
1115 003746 105767 000206 TSTB = SMFLG ;;SHOULD TYPE A MESSAGE? 
1116 003752 001450 BEQ c$ -IF BR 
1117 003754 122767 000001 175104 CMPB ss BAPTENV, SENV i OPERATING UNDER APT? 
1118 003762 001031 BNE 3$ T: . 
1119 003764 132767 000100 175075 B1T8 #APTSPOOL , SENVM s+ SHOULD, SPOOL MESSAGES? 
1s? 774 yeeiai 000004 MOV 4 (SP), RO 2: GET MESSAGE | ADOR. 
1l22 OO4000 062766 O00002 oo0004 ADD 82 4(SP) RETURN ADDR. 
- 3 004006 005767 175034 1S: ist SMSGTYP j SEE df. ‘Bone Ww LAST XMISSION? 
1125 OO4014 010067 175042 MOV RO SMSGAD ::PUT ADDR IN MAILBOX 
112 ipr35e 23: [STs (RO) ::FIND END OF MESSAGE 
lige poyos0 abeeog | Oe 2. iieer RESSAGE LNGTH Ih WORDS 
1130 OO4032 010067 175026 MOV RO, SMSGLGT ?:PUT LENGTH IN MAILBOX 
1131 O03 g1e767 000004 175002 HOV #4’ SMSGTYPE ::TELL APT TO TAKE MSG. 
1133 OO4O46 017667 OODD04 oDD016 3s: MOV a4(SP) 4S ;;PUT MSG BOOR me AUR J Ri LINKAGE 
1134 oo40s4 062765 O00002 o00004 ADD #2, 4(SP) DRESS 
1135 O62 016746 173710 MOV 177776, -(SP) ;;PUSH saber ON S 
1136 004767 177332 JSR PC, $TYPE ;;CALL TYPE PACK 
He! Oe 000000 48: .WORD 0 
ns ag 105767 000062 ras: TSTB SrrLG Scag REPORT FATAL ERROR? 
1141 004102 767 174760 FES at + ANN ENG uffer APT? 
1142 004106 001413 BEQ 12$ ::IF NOT: BR 
1143 904110 005767 174732 118: TST SNSGTYPE EINISHED Last MESSAGE? 
1145 004116 017667 OO00004 174724 MOV DY(SP),SFATAL  ;:GET ERROR 
1146 004124 062766 O00002 Oo0004 ADD #2. 4(SP) RETURN ADOR. 
1147 004132 005267 174710 INC SMSGTYPE :; TELL api ernr To TAKE ERROR 
1148 004136 105067 O00020 123:  CLRB  $FFLG CLEAR FATAL FLAG 
1149 004142 105067 900013 CLRB = SLFLG 3 ;CLEAR LOG *ELAG 
1150 OO4146 105067 cO0006 CLRB  $MFLG LEAR MESSAGE FLAG 
1161 post b1g601 MOV (SP)+,R1 Bop STACK INTO R1 
11 4154 O] MOV (SP)+°RO aa STACK INTO RO 
1153 004156 000207 ve RTS PC iR UR fect 
tted catty BRE tet: -Byt 2 4 nes Saf 
1156 o04162 000 SFFLG: .BYTE 0 :: FATAL FLAG 
1157 004164 EVEN 
1158 o00200 APTSIZE=200 


e+ ee ee eee eee = s —- 


K0e 


; =AY- : 
OFAN pT ROY! 167 4A0053 eISURY-77 15:24. PAGE FR CATIONS ROUTINE SEG 0023 
1183 ratte me Tseoge eo 
ve 
90004 

Like Ab LeStP=p “Dit ay TO OCTAL (ASCII) AND TYPE 
1154 ; bare ROUTINE Te CED tO re ee CS I eae R Raa aE 
1 sate OLE IS USED fo CHANGE A 1 16-BIT BINARY NUMBER TO A 6-DIGIT 

> | ) NUMBE 
1122 1 ' aia HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
He i Wilag (MCT ro TD 
171 3 -BVTE _ :iN=l g FOR NUMBER OF DIGITS TO TYPE 
1173 ie : ite 1=TYPE LEADING ZEROS 
1174 i ie SUPPRESS LEADING ZEROS 
1176 ENP oe SS HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

¥ 
1178 3 *CAL 
1179 te "Moy NUM, - (SP) ;;NUMBER TO BE TYPED 
1180 i YPON ?:CALL FOR TYPEOUT 
1182 | ¥STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1184 + MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
1185 1 TYPOC :;CALL FOR TYPEOUT 
1187 OO4164 017646 ocoD00 $TYPOS: MOV a(SP),-(SP) PICKUP T 
1188 004170 116667 000001 000211 MOVE -:1(SP),SOFILL LOAD ERO” F itt SuITCH 
1189 004176 112667 O00207 MOVE  (SP)+’ SOMODE+1 Br OF DIGITS TO TYPE 
1 Gowiede O52? 1b 000002 ADD te, (SP) ADJUST RETURN ADDRESS 
BR 

1 767 Oi 171 STYPOC: MOV #1, SOF RO FILL SWITCH 
1185 BYSI2 118985 BBBBRA BBBIZE STYPoc: Neve a) SRE t FOR Stxte0 torte 
1194 004224 112767 000005 000154 STYPON: Move 45, SOCNT err THE ITERATION COUNT 
t1éz BB4S35 piste NOV Rid =( 25} Save RY 
1197 004236 O10S46 MOV RS,-(S5P -SAVE RS 
1198 in 116? 000145 Move gyroness, ,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
1200 O04246 062704 OO0006 ADD #6,R js SUBTRACT IT FOR MAX. ALLOWED 
1201 o042S2 000132 MOVB RY SOMODE j 5 SAVE IT FOR USE 
1202 004256 116704 000125 MOVB  S$OFILL,RY *:GET THE ZERO FILL SWITCH 
1203 OO04262 016605 O000I2 MOV 12(SP)-RS ::PICKUP THE INPUT NUMBER 
1204 OO04266 005003 CLR R3 + # CLEAR THE OUTPUT WORD 
1205 go4270 006105 13: ROL RS ;;ROTATE MSB INTO “C™ 
15S BB 4555 etter 2s: BBL rf + BR RRC TH 8 DIGIT 
1208 004276 006105 ROL RS 
1208 004300 006105 ROL - 
1 ? ate Merdttk 3S: ROL RS: ;;GET LSB OF THIS ,DIGIT 
lele 004306 105367 oo0076 DECB  $OMODE i; TYPE THIS DIGIT? 
1213 OO4312 100016 BP ? F 


L 
1214 004214 042703 177770 BIC #177770,R3 :;GET RID OF JUNK 


LOe 


aOR ay Pll edie He Ver ie ae + CU INARY 10 OCTAL (ASCII) AND TYPE 


iE GER? UR ae: 


217 BEQ S$ 


H SUPPRESS Furs 0? 


121 Gases Dosa04 4§ I + SOON ae MORE 0°S 
lel 052703 60 BIS #’'0,R3 j {MAKE TH Orit ASCIT 
1220 334 052703 000040 S$ BIS #’ 'R3 READY 
1221 OO434O 110367 O00040 R3, BS LISAVE FOR YPING.- 
le22 004344 104401 OO4404 TYPE a¢ 3360 TYPE THIS DIGIT 
223 0043S0 105367 000032 7$ C8 = SOCNT 3 3 COUN 
1224 004354 003347 BGT 2 ::BR IF MORE TO DO 
1225 004356 o02402 BLT 6$ ::BR IF DONE 
158? DOSES | DOG7a4 ee {INSURE LAST DIGIT ISN" @ BLANK 
1228 004364 012605 6S: MOV (SP)+,RS RESTORE RS 
1229 004366 012604 MOV (SP)+/R4 !:RESTORE RY 
1230 004370 012603 MOV (SP)+/R3 ::RESTORE R3 
1231 004372 016666 o00002 000004 MOV 2(SP)/4(SP) ::SET THE STACK FOR RETURNING 
le3e OO4400 012616 MOV (SP)+! (SP) 
1233 OO44O2 O0000e2 RTI js RETURN 
1234 O04404 000 8S BYTE 0 :STORAGE FOR ASCII DIGIT 
(532 DoWWe «= OOD Socnt: “BYTE 6 TERMINATOR UNTER 
1237 004407 000 SOFILL: .BYTE O ; j ZERO FILL SWITCH 
1238 OO4410 oo0000 SOMODE: .WORD O NUMBER OF DIGITS TO TYPE 
1239 -SBTTL. POWER DOWN AND UP routineé 
ious - last Oat OR ee 
“POWER DOWN ROUTI 
1043 OO4412 012737 OO4SS2 oD00e4 apceer MOV SF LLuP QSPWRVEC ;;SET FOR FAST UP 
1244 OO4420 012737 000340 o000e6 MOV #340, J¥PWRVEC+2 , {PRIO: 
1245 powsies 010046 MOV 0,-t :: PU 20 ON c 
101 MOV R1'-(5P) PUSH R1 ON STACK 
1247 OO4432 010246 MOV R2,-(SP) ;;PUSH Re ON STACK 
1 004434 010346 MOV R3,-(SP) PUSH R3 ON STACK 
1049 On4436 610446 MOV RY’ -(SP) PUSH R4 ON STACK 
1 Ov.4440 010546 MOV RS, -(SP) ::PUSH RS ON STACK 
1251 OO4442 017746 174332 MOV gStR -(SP) ;;PUSH @SWR ON STACK 
1252 OO4446 010667 000104 MOV SSAVRE SAVE SP 
1253 12737 OO4464 oco00e4 MOV SSPHRUP JSPWRVEC’:;SET UP VECTOR 
1254 4 0000 HALT 
1285 004462 000776 BR 2 ;;HANG UP 
15ee : en a a es 
1259 OO44G4 012737 OONSSe 00024 $PURUP: MOV ASILLUP, JHPURVEC ;;SET FOR FAST DOWN 
1260 OO4472 016706 OO00060 MOV SSAVR6, SP T 
1261 004476 O00S067 o900S4 CLR SSAVRE j MATT LOOP FOR THE TTY 
lebe OO4SO2 005267 000050 i$: INC SSAVRE ;;WAIT FOR THE INC 
1263 O04S06 001375 BNE 1$ OF WORD 
isee poueis gistos 27 eeY RY ee gee aoe at pure oe 
1 004516 012604 MOV (SP)+ tha *:POP STACK INTO RY 
1267 012603 MOY (SP)+'R3 ::POP STACK INTO R3 
1268 OO04S22 Ol1e602 MOV (SP)+'Re !:POP STACK INTO Re 
1269 OO4S°4 Ole60! MOV (SP)+'RI HPP STACK INTO R1 
1270 OO4S26 012600 MOV (SP)+°RO STACK INTO RO 


SEQ 0024 
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OFASHD PHOT AZRAVOGS eYSURY-77 15:28. PAGE ER an UP ROUTINES 
Ee Bee 818536 


ee 
WWWWWWUWWW) 
TO ee 
M—-OWONTUE We 


fore 


OO4ESe 


194401 


000000 
000776 
000000 
00501 
00012 


000243 


680346 


047520 


o0000e 


004624 


oooco4 


BebEe 


042527 


ooso0e 


POY SSYRRUAITEENE, aD, YP THE Poser oo vecron 


T THE POWER FAILURE 
SPWRMG: gord SPOWER REPORT FAIL MESSAGE POINTER 
SILLUP: HALT ;; THE POWER UP SEQUENCE WAS STARTED 
BR .-2 3; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 


$SAVRE: 0 
$POWER: .ASCIZ <15><12>"POWER™ 


. EVEN 
-SBTTL TRAP DECODER 


55 EERE EEE EEE SEE SESE HEHE HEHE EEE EERE RARER REE AE RAR EAR EEEEE EERE 
; $THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” akties UCTION 
;*¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE oo ee ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*#G0 TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) ;SAVE RO 
Nov e(SP), RO :$GET TRAP AQORESS 
MOVB CRO). Ro ::GET RIGHT BYTE OF TRAP 
ASL RO ;;POSITION FOR INDEXING 
MOV STRPAD(RO),RO ::INDEX TO TABLE ‘ 
RTS RO ::G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
MOV 4(SP},2(SP) ; MOVE THE PSW DOWN 
: RESTORE THE PSW 


.SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE ‘ertheme ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP” INSTRUCTION 


ROUTINE 


$TRPAD: .WORD STRAP2 
$TYPE ;;CALL=TYPE TRAP+1(1040!) TTY TYPEQUT ROUTINE 


SEQ 002s 


$TYPOC t CALL= TYPOC TRAP+2( 104402) Mu YPE OCTAL eee (WITH LEADING ZEROS) 


$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL 


R (NO LEADING ZEROS) 


STYPON ;;CALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


SROCHR ;;CALL=RDCHR TRAP+S(10440S) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=RDLIN TRAP+6(104406) TTY TYPEIN STRING ROUTINE 
SRDOCT ;;CALL=RDOCT TRAP+7( 104407) READ AN OCTAL NUMBER FROM TTY 


TXCRC: -1 
S71 ;M9301 - YA VERSION 
457 M9301 - YB VERSION 
243 M9301 - YC VERSION 


NOe 


mACY 1 27 -MAY-77 15:24 PAGE 26 
aonate.P' 25 cnayes? F735 TRAP TABLE SEG 0026 
SB Bee S mete 
2. oo a M7942 - YB version 
Biers pane anh Miers 
4 M - YK) VERSION 
tis BBYpR? BRR E 54 'M4311 VE 16h 
4333 004670 000536 536 349301 - YH VERSION 
1334 004672 000752 752 :M9301 - YE VERSION 
1335 000633 633 *M9301 - YJ VERSION 
1336 004676 177777 =] 
1337 1 -1 
1338 004702 177777 -] 
1339 004704 1 -} 
1340 177777 -] 
134) 004710 177777 -1 
1343 004712 177777 TXLPC: -1 
1344 004714 133725 133725 ;M9301 - YA VERSION 
134S 004716 63 1756 :M9301 - YB VERSION 
13468 004720 141744 141744 :M9301 - YC VERSION 
1347 004722 13 4761 -M9400 - YACOR YC) VERSION 
1348 004724 114175 114175 :M9301 - YF VERSION 
1349 004726 146126 146126 :M7942 - YB VERSION 
1350 004730 132161 132161 :M9301 - YD VERSION 
1351 004732 143466 143466 :M9400 - YH(OR YK) VERSION 
004734 036104 036104 :§9311 VERSION 
1353 004736 125411 1. 5411 ;M9301 - YH VERSION 
1354 004740 O66246 ubb246 :M9301 - YE VERSION 
1355 O04742 132367 132367 :M9301 - YJ VERSION 
1356 GO4744 177777 <1 
1357 004746 177777 -1 
1358 004750 177777 -1 
1359 004752 177777 -1 
1360 004754 177777 -1 
1361 177777 -} 
1362 004760 177777 -1 
1364 004762 177777 TOLNI: -1 
1365 004764 001000 1000 :M9301 - YA VERSION 
1 004766 001000 1000 :M9301 - YB VERISION 
1367 004770 001000 1000 :M9301 - YC VERSION 
1368 004772 001000 1000 ?MSHO0 - YACOR YC) VERSION 
1369 004774 001000 1000 :M9301 - YF VER SION 
i Heeoe feiae a aga = VE Veet 
as _ 
l 54 waa 1000 1000 : ga00 - ae 7S N ERSION 
1373 005004 001000 1000 :M9311 VERSIO 
ie ene Gatos iB ant < ve Vein 
1376 00 Bt 001000 1000 :M9301 - YJ VERSION 
1377 005014 177777 -1 
378 OO0SO16 177777 -1 
1379 005020 177777 -1 
00S022 177777 -1 
1381 005024 177777 al 
1382 005026 177777 -} 


SEG 0027 
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24 PAGE 28 


TRAP TABLE 

-1 

-1 

-] 

-l 

-1 
TMSG: -1 

MSG1 

MSGe 

MSG3 

MSG4Y 

MSGS 

MSG6 

MSG7 

MSG10 

MSG11 

MSGle 

MSG13 

MSG14 

- 

-1 

-1 

-1 

-] 

-1 
TITL: -ASCIZ 
GETCRC: .ASCIZ 
GETLPC: .ASCIZ 
EXCRMG: .ASCIZ 
EXLPMG: .ASCIZ 
ACCRMG: .ASCIZ 
ACLPMG: .ASCIZ 
EOTST: .ASCIZ 


CO3 


;M39301 - YH VERSION 
349301 - YE VERSION 
; - YJ VERSION 


(15><12>/ROM TEST/ 
«15><12>/TYPE CRC VALUE: / 


¢15><12>/TYPE LPC VALUE: / 


(15><12> “EXPECTED CRC 


iT) 
s 


€15><12><12> “EXPECTED LPC = 


¢15><12>/COMPUTED CRC 


“ 
~ 


«15><32> COMPUTED LPC 


€15><12><12>/END OF TEST- 


SEG 0026 


DO3 


-MAIN. MACY11 27(1006) i" 15:24 PAGE 29 


DZMSAD.P11 24-NAY-77 TRAP TABLE SEG 0029 
1495 77 0 131 SAL: -ASCIZ <15><12)>/TYPE STARTING ADDR. OF 1ST ROM ADDR. SPPCE: / 
nS EE onl BE te 
1497 O0SSi2 O44Se4 043516 40440 
1498 005520 042104 Oe7iee 047440 
1499 00SSe6 106 051461 020124 
ia ee Ee Gee Bie 
ins DOSSSO «6041501 035105 0 
1S04 pocees 1S QSe012 O0S0i31 She -ASCIZ <15><12>/TYPE STARTING ADOR. OF 2ND ROM ADDR. SPACE: / 
1505 005564 020105 QSele3 051101 
1506 O0S57e O44Se4 043516 O40440 
1507 O0S600 042104 Ge7lee 047440 
1508 005606 020106 O4706e 020104 
15039 005614 O47Se2 020115 O4e101 
1510 OO0S6e2 051104 Ge00S6 050123 
jai 005530 er 035105 
1513 905637 O12 OS2012 OSO131 SIZE1l: .ASCIZ <15><12>/TYPE LENGTH (BYTES) OF 1ST ROM ADDR. SPACE: / 
1514 OOSBY4 d2010S O4eS14 043516 
1515 OO0S6S2 O441e% Oe4040 OS 
1516 005660 O42Se4 Ge4Se3 04 
1517 O0S666 020106 051461 0201 
1518 OOS674 O47Se2 Oe011S 42101 
1519 O0S702 051104 O20056 1 
‘est eeie ier 035105 
1Se2e 005717 01S OSe0ie OSO131 SIZE2: .ASCIZ <15><le>/TYPE LENGTH (BYTES) OF 2ND ROM ADDR. SPACE: 
1S23 0057 020105 O4eS14 043516 
1524 005732 O4412e4 os4S02 
1525 O0S740 O425e4 Oe4S23 047440 
15e6 005746 020106 047062 
1Se7 005754 O47See 020115 O4e101 
1528 005762 051104 020056 050 
1529 005770 04:501 035105 0 
1530 005776 000 
1531 005777 01S 000012 CARLF: .ASCIZ <15><l2> 
1532 006002 d20040 000 SPe: -ASCIZ /% aes 
1533 006005 O15 O4O4le OY21L4 TYPHOR: .ASCIZ <15><12>/ADDRESS DATA’ 
1534 O060le O4eS2e 051523 
1535 006020 020040 Oe0040 Od20040 
1536 006026 Oe0040 de0040 
4 eae 042040 052101 000101 COLON a a 
1539 006046 005015 047125 047113 AUTERM: .ASCIZ <15><12>/UNKNOWN MODULE / 

1540 006054 053517 020116 047515 

tas 006062 052504 042514 

i543 006070 GOSOIS 024515 030063 MSG1: .ASCIZ <15><le>’M9301 - YA/ 
1544 006076 020061 O02: 040S31 

154S 006104 000 

1546 00€105 01S O46412 O31471 MSG2: .ASCIZ <15><1e>/M9301 - YB- 
1547 O06112 O30460 O26440 OS4440 

1548 006126 070102 me 
1549 O006lee 005015 034515 930063 MSG3: .ASCIZ <15><12>/M9301 - YC 
1550 006120 020061 Oe00SF 041531 


E03 
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TRAP TABLE 


DZMSAD.P11 24-MAY-77 15:22 SEG 0030 
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1552 006137 OiS O464l2 032071 “SG4: .ASCIZ <15><12>/M9400 - YA,YC/ 
1553 006144 pso080 0264 OS4440 

1554 006152 101 041531 

1SSS 006157 O15 OW64le 031471 MSGS: .ASCIZ <15><12>/M9301 - YF/ 
1556 006164 030460 026 OS4440 

1557 006172 000106 

1558 006174 O0S015 033515 032071 MSG6: .ASCIZ <15><12>/M7942 - YB/ 
1559 O06e02 d200be 041131 

1560 006210 000 

1561 O06e11 O1S OW64l2 031471 MSG7: .ASCIZ <15><12>/M9301 - YD’ 
i562 006216 030460 O26440 OS4440 

1563 006224 000104 

1564 O062e6 005015 034515 030064 MSG10: .ASCIZ <15><12>/M9400 - YH(OR YK)/ 
1565 006234 020060 044131 

1566 O06e4%2 047450 Oe0l2e, 045531 

1567 O0062S0 000051 

1568 O06eSe 005015 O34515 O30463 MSG11: .ASCIZ <15><12>/M9311/ 
1569 006260 000061 

1570 OO06262 O0S015 034515 030063 mMSGi2: .ASCIZ <15><12>/M9301 - YH/ 
io7k 006270 | O200SS 044131 

1 006277 O15 O4641l2 031471 MSG13: .ASCIZ «15><12>/M9301 - YE/ 
1574 006304 J30460 O26440 054440 

1575 006312 O00C:05 

1576 006314 OUSO1S O34515 030063 MSG14: .ASCIZ <15><12>/M9301 - YJ/ 
1577 006322 e006! Oe005S 045131 é 
i578 006330 000 

is79 oooo0! END 


FO3 


BOMOAD.PLT  togenAgeeS BtanhY-77 1S:2t COC FERENCE TABLE =~ USER SYMBOLS 


et 


sea 


FF 4 
Esg 


ee Vurwn tt BR 


AipLAE Ta creppreeeeertes 


AMANS3= O0O000 


AUSWR 
RAUTACT O0eSe2e 
AUTERM OOGD4E 


14848 


14888 
S74 
666% 
667% 


570 
S62 


689 
708 


11598 
11608 


698 
716 


740 
795 


770% 
802% 


843 


SEQ C031 


GO3 





Y11_ 27 <MAY-77 15:24 PA 

BoHeNO Plt ah cnAvCeS 858 Cross REFERENCE TABLE -- USER SYMBOLS SEQ 0032 
AUTERR 002612 gy2 gus 
AUTI B40e = B44 

T p eye 849s 

13 O02 b Soe 
AVECTI= 000000 559 
AVECT2= 000000 559 
BITO = 000001 4758 
B1T00 = 000001 Hose 75 
BITGs = Ooseos ueae 43 
BITO3 = 000010 4uB28 «472 
BITOY = 000020 ule 471 
BITOS = O00040 4608 470 
BITO& = 000100 4us98 469 
BITO? = 000200 4usee = 468 
BITOs = 000400 4578 = «467 
BITO9 = 001000 4568 = 466 
BIT1 = OO0002 474 
BITIO = 002000 458 
BIT11 = 004000 4548 
BIT12 = 010000 4538 
BIT13 = 020000 4528 
BIT14 = 040000 4518 
BITIS = 100000 4508 
BIT2 = OOO004 4738 
BIT3 = OOO0i0 4728 
BITY = 000020 4718 
BITS = QO0040 4708 
BIT6 = OO0100 4699 
BIT? = 000200 4688 
BITB = OO0400 4678 
BIT9 = 001000 4668 
BPTVEC= 000014 4yBoe 
C 005777 822 82715318 
CHECK 001510 632 «= 634i GtCt« GD 
CHO = O01566 669 ss 7b 
CHl = O01644 678 687 6898 
Ckl 001736 690 703 708% 92 
CK 30 709 721s 7b 
CLLAST 002204 7637658 

252 7748 = 780 

CLP1  ‘D02264 77527778 
CLP2 = OOe316 784 7868 
clo © 02102 7418 747,764 
CL! 002146 7558 
C2 © 002170 75227618 
CL3 OOP 122 7430S 7488 
COLON 006042 B31 15388 

R= O00015 3908 1089 1099 
CR 002074 67 679-7408 
CRLF = 000200 3918 1060 1099 n 
DATLNI 001006 S138 628 «= bS4e# = bBSCiiCé7SséOD 
DATLNe O0101e ci58 630 b6ee 677 681 ~~ 813 
DOISP = 177570 3978 ©5599 
OISPLA 001002 Siis 599% 07% 


DISPRE 000174 498 607 


HO3 


7 4-MAY-77 724 
OURAN, pe 362440084 16735" ” “dros eRe FERENCE TABLE -- USER SYMBOLS SEG 0033 
= 177570 3968 598 
prityece 000030 48S 
1 8178 
OTST : e 818 14928 
C= 4788 S96 597% 608* 
ea peoie aire B4- 642% 689 694 8S0* 
XLPC poise” 188 626% 646% 708 712 8S 1# 
XLPNG 711 14808 
GETCRC 005273 640 14688 
GETIN 001370 624 6338 
en iio oa 
= £EEEEE U 497 1313 1314 1315 1316 1319 1320 1321 
GOAGIN 70 732 7388 
= 000011 3888 1058 1099 
IOTVEC= 4838 
= 00001e 38398 1093 1099 
LPC 002344 75 683 7 
LPC1 002352 7368 801 
Ce Go2366 8008 
MSG1 006070 1446 1S438 
MSG1O O06226 1453s: 15648 
MSG11 O062S2 14S4 15688 
MSGle OO06262 i4SS 15708 
MSG13 006277 14S6 15738 
MSG14 006314 1457 1S768 
MSGe 006105 1447 1S468 
MSG3 006122 1448 1S498 
mMSG4 006137 1449 15528 
MSGS 006157 0 15SS8 
MSG6 006174 1451 1558 
MSG7 006211 14S2 15618 
PARCNT 001026 Scls# 772% 77b# 783 
PARITY O02242 748 7728 
PIRQ = 177772 3958 
PIRQVE= 000240 489% 
PRO = Q00000 4128 
PR1 = 000040 4138 
PRe = 000100 414% 
PR2 = 000140 4158 
PRY = 000200 416% 
PRS = 000240 417% 
PRE = 000300 4188 
PR7 = 000340 4198 
PS = 177776 33928 393 S068 
PSW = 177776 3938 x ‘ 
PWRVEC= 4o4g 592% S93* 1243 l2e44e 1253% 1259 le7l* Levee 
RDOCHR = 10440S 911 13198 
RDOLIN = 104406 986 13208 
ROOCT = 104407 641 64S e449 653 657 661 13218 
RESTRT 001274 616 6208 738 
RESVEC= 000010 4798 


Sies 629% 650# 670 672 807 
658* 676 680 8le 


ROMSAl 001004 
ROMSA2 001010 51 631# 
SAl 005477 648 14958 


103 


DORAN. ptRCY 262RARCHS pErSURY-77 1S:2d, PAGE rR peNCE TABLE -- USER SYMBOLS 


, See 
HH Sere 
STACK = 001100 
START 001076 
STKLNT= 177774 
Ses BR 
SWREG 1 
SO 000001 
SWOO = 000001 
SWO1 000002 
SWO2 = 000004 

090010 
000020 
0001 


SBSBDEONE oes aceon 


secctee eecnease 


TBITVE= 000014 
TDLN1 004762 
TOLNe 005076 
TITL 05260 
Tee * be 
TPVEC = 000064 
TRAPVE= 000034 
TRMSAL 005030 
TRMSAC 005144 
TRTVEC= 900014 
TXCRC  OO4644 
TXLPC }§=©.- OON712 
TYP og2454 
TYPE = 104401 
TYPHDR OO&00S 
TYPOC = 104402 
TYPON = LO44O4 


656 


15048 


S04 


584s 


bee 


606* 


834 848 84 
1017 


613% 622% 623 1251 1264* 


651 655 659 692 696 710 
918 924 929 
1063 le2e le73 13138 


829 833 13148 


ra 
33 


4 
3 


729 
938 


SEQ 0034 


gOS 
939 


a aie ca 


TYPOS 


= 104403 
1030 


88 
Ens 


oO 
Oo 
+ 
<= 
on 
<= 


12598 


JO3 


Robe “Re PERENCE TABLE -- USER SYMBOLS 


S228 


seis 


1082 


637 


765 


1091% 


1064 


a 


1050 


722% 
1148% 


1105 
610 
1154s 


723# 


1201% 


663 


766% 767% 769% 


10968 


1105 


$68 bas" fT? 


1119 


856 114S% 

17888 

1043 

857% 1123 1131* 
lelee 12388 


770 789 790% 7914 792 


1143 1147% 


SEG 0035 


7354 


KO3 
OFAN. eIGCY! 2GZ4AR%G2 ,E23URY-77 SEER OEBSeHEReNCE TABLE -- USER SYMBOLS 


$QUES 003224 941 9588 1017 1020 1105S 
HR 8788 1319 
C= ERRERE U 132e 
N 6% 1320 
T 4 9818 13el 
$RDSZ = 000010 ggg 
= HHREEE U 1322 
= BRREEE U 322 
oo4SS& 12eSex 1260 1261% lebe* 12788 
SSETUP= 000014 506 589 590 592 S34 867 967 
S$STUP = 177777 S008 
$SvPc = 001032 S283 $33 
S 3798 861275 
g G 001070 S7e8 613 
STESTN 001052 S638 586% 
$TKB 002636 8648 882 888 
$TKS 002634 8638 880 886 
STPB 003710 1088* 11008 
STPFLG 003715 1037 11048 
$TPS 003706 1086 10998 
STRAP 004570 590 12908 
STRAP2 OO04ble 13018 13le 
STRP = 000010 130S# 13148 1315# 13168 13178 #1319 13208 13218 13228 
TRPAD 24 129 13les 
TSTM 18 8 - 
TTYIN 4 903 921 939 953 9578 
STYPBN= #####% U 1317 
STYPDS= #4222 U 1317 
i OM eC nC et, 
ra 
TYPEX aera 032 1094 10978 
$TYPOC 004210 119e¢8 1314 
STYPON O04224 191 11948 1316 
STYPOS OO4164 11878 1315 
SUNIT O01 S668 
SUNITM 001042 cs4s8 
SUSWR 001072 S738 
SOF ILL 407 1163% 1192% 1202 12378 
= 006331 4908 493% 497% S008 509% 528 529s S318 S338 
863 864 957% 958 959 960 967 1020 10939 
1104 1105 11578 1255 1277 
1109 llle 


-SASTA= eeteee U 
-$X = 001032 5398 S44 


599 
4100 


S408 
1101 


S428 
1102 


SEQ 0036 


S448 
1103 


COMMEN 4908 
ENDCOM 4908 
ERROR 3848 
ESCAPE 4908 
ei 4908 
GET 4908 
T 4908 
NEWTST 4908 
3798 4908 1009 1151 1152 
3798 4908 983 llle 1114 
REPORT 4908 “ 
OPE 3858 
SETPRI 4908 
SETTRA 13058 1314 1315 1316 1319 
TUP 2798 4908 
SKIP 4908 
SLASH 4908 
SPACE 4908 
STARS 3738 4908 S26 536 538 
1257 1284 
SWRSU 490 Sos 
TRMTRP 130S8 
TYPBIN S08 
TYPDEC 490% 
TYPNAM 4908 
TYPNUM 4908 
TYPOCS 4908 
OCT 490% 
TYPTXT 4908 


SSSET 13058 1314 1315 1316 1319 


SSSETM 610% 
SSSKIP 4908 
EQUAT 379% 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


DZMSAD.BIN, OZMSAD.LST/CRF/SOL/NL: TOC=DZM9AD.P11 


1264 
1135 
1320 


S4S 


1320 


1265 
1245 
1321 


558 


1321 


03 


Pac oy Vo 1 130""-77 1S: 2taoge REFERENCE TABLE -- MACRO NAMES 


1251 


862 


870 


899 


969 


1022 


1107 


L164 


i 
- 


SEQ 0037 


i24l 


MOS 
pFABn PIR’! 2G2AAROHS ,E2SURY-77 1S:2d,OERSReAPReNCE TABLE -- MACRO NAMES Seo 0028 


RUN-TIME: 11 4 .S SECONDS 
RUN-TIME RATIO: 632/16=38.6 
CORE USEC: 20K (40 PAGES? 


NO3 


